home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / SmallTalk / install < prev    next >
Encoding:
Text File  |  1995-11-24  |  1.0 KB  |  48 lines
  1. (if (= @language "deutsch")
  2.     (
  3.         (SET Intro  "Wilkommen zum Installer-Script für SmallTalk")
  4.         (SET Where  "Wohin soll das Smalltalk Packet hinkopiert werden ? Es wird ein Verzeichnis Namens SmallTalk angelegt")
  5.         (SET Addit  "Es werden nun noch ein paar Zeilen zu s:user-startup hinzugefügt")
  6.     )
  7. )
  8.  
  9. (if (= @language "english")
  10.     (
  11.         (SET Intro  "Welcome to the installer-script for SmallTalk")
  12.         (SET Where  "Where do you want to place the SmallTalk package ? A drawer called SmallTalk will be created ")
  13.         (SET Addit  "Some additions to s:user-startup will be made")
  14.     )
  15. )
  16.  
  17. (MESSAGE Intro)
  18.  
  19. (SET    Wuck
  20.     (ASKDIR
  21.         (PROMPT Where)
  22.         (HELP   "")
  23.         (DEFAULT    "sys:")
  24.     )
  25. )
  26.  
  27. (SET BinDest (TACKON Wuck "SmallTalk"))
  28.  
  29. (RUN (CAT "malkedir \""BinDest"\""))
  30.  
  31. (COPYFILES
  32.     (SOURCE ":Dev/SmallTalk/")
  33.     (DEST   BinDest)
  34.     (ALL)
  35.     (INFOS)
  36. )
  37.  
  38. (STARTUP    @app-name
  39.     (COMMAND    (cat "assign c: \""BinDest"\" Add"))
  40.     (PROMPT Addit)
  41.     (HELP   "")
  42. )
  43.  
  44. (RUN (CAT "assign c: \""BinDest"\" Add"))
  45.  
  46.  
  47.  
  48.